home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / STUTTGART / NEWSOFT / AUGUST / WORKDISC / !Forthmacs / lib / blktools next >
Text File  |  1997-02-10  |  494b  |  16 lines
  1. \ Some F83 BLOCK management tools
  2.  
  3. nuser block-source  0 block-source !
  4.  
  5. : !files    (s fcb -- )    dup block-fid !  block-source !  ;
  6. : default    (s -- )        0 !files  ;
  7. : file?        (s -- )        block-fid @ .file  ;
  8. : switch    (s -- )
  9.     block-fid @
  10.     block-source @  block-fid !
  11.     block-source ! ;
  12. : capacity    (s -- n )    block-fid @  file-size s>d b/buf um/mod nip  ;
  13. : in-block    (s n -- a )    block-source @  file-block  ;
  14. : use-file    (s str -- )    open-block-file !files  ;
  15. : using        (s -- )        blword  use-file ; \ filename
  16.